home *** CD-ROM | disk | FTP | other *** search
/ Macademic for Students & Teachers / Macademic for Students and Teachers (Quantum Leap)(1992).iso / Writing / Story Writer / card_2901.txt < prev    next >
Text File  |  1987-12-28  |  4KB  |  164 lines
  1. -- card: 2901 from stack: in
  2. -- bmap block id: 6645
  3. -- flags: 0000
  4. -- background id: 2747
  5. -- name: title
  6. ----- HyperTalk script -----
  7. on openCard
  8.   hide menubar
  9.   hide message
  10.   tabKey
  11.   put empty into card field "final" of card "show story"
  12.   put empty into card field "title" of card "show story"
  13. end openCard
  14.  
  15.  
  16.  
  17.  
  18. -- part 1 (field)
  19. -- low flags: 00
  20. -- high flags: 4000
  21. -- rect: left=173 top=141 right=159 bottom=460
  22. -- title width / last selected line: 0
  23. -- icon id / first selected line: 0 / 0
  24. -- text alignment: 1
  25. -- font id: 36
  26. -- text size: 12
  27. -- style flags: 0
  28. -- line height: 16
  29. -- part name: title
  30.  
  31.  
  32. -- part 2 (field)
  33. -- low flags: 00
  34. -- high flags: 4000
  35. -- rect: left=220 top=165 right=183 bottom=460
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 1
  39. -- font id: 36
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: character
  44.  
  45.  
  46. -- part 3 (field)
  47. -- low flags: 00
  48. -- high flags: 4000
  49. -- rect: left=135 top=189 right=223 bottom=460
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 0
  53. -- font id: 36
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: theme
  58.  
  59.  
  60. -- part 4 (button)
  61. -- low flags: 00
  62. -- high flags: 0000
  63. -- rect: left=122 top=294 right=327 bottom=233
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: Write Story
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   get line 1 of card field "title"
  75.   if it is empty then
  76.     answer "Give your story a title."
  77.     click at 315, 152
  78.     exit mouseUp
  79.   end if
  80.   put it into card field "title" of card "write story"
  81.   put it into card field "title" of card "show story"
  82.   get line 1 of card field "character"
  83.   if it is empty then
  84.     answer "Name character(s) for your story."
  85.     click at 339, 175
  86.     exit mouseUp
  87.   end if
  88.   put it into card field "character" of card "write story"
  89.   put line 1 to 2 of card field "theme" into card field "theme" of card "write story"
  90.   visual effect scroll up
  91.   go to card "write story"
  92. end mouseUp
  93.  
  94.  
  95.  
  96. -- part 5 (button)
  97. -- low flags: 00
  98. -- high flags: 0000
  99. -- rect: left=349 top=296 right=326 bottom=441
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Instructions
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   push card
  111.   visual effect iris open
  112.   go to card "Instructions"
  113. end mouseUp
  114.  
  115.  
  116.  
  117.  
  118. -- part 6 (button)
  119. -- low flags: 00
  120. -- high flags: 0000
  121. -- rect: left=446 top=297 right=326 bottom=500
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: Quit
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   answer "Quit HyperCard or go Home?" with "Cancel" or "Quit" or "Go Home"
  133.   if it is "Go Home" then
  134.     go home
  135.     exit mouseUp
  136.   end if
  137.   if it is "cancel" then exit mouseUp
  138.   else visual effect zoom in
  139.   domenu "Quit Hypercard"
  140. end mouseUp
  141.  
  142.  
  143.  
  144.  
  145. -- part 17 (button)
  146. -- low flags: 00
  147. -- high flags: 0000
  148. -- rect: left=238 top=294 right=328 bottom=346
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 0 / 0
  151. -- text alignment: 1
  152. -- font id: 0
  153. -- text size: 12
  154. -- style flags: 0
  155. -- line height: 16
  156. -- part name: 
  157. ----- HyperTalk script -----
  158. on mouseUp
  159.   answer "Which story would you like to read?" with "Story 1" or "Story 2" or "Story 3"
  160.   visual effect scroll up
  161.   go to card it
  162. end mouseUp
  163.  
  164.